home *** CD-ROM | disk | FTP | other *** search
/ My Neighborhood / My Neighborhood.iso / mac / MacFiles / Zoo1.Dxr / 00032.ls < prev    next >
Encoding:
Text File  |  1997-11-18  |  1.1 KB  |  28 lines
  1. on moveMiddle
  2.   global LcurrentWeight, RcurrentWeight
  3.   if RcurrentWeight > LcurrentWeight then
  4.     set tempWt to the number of cast "right heavier"
  5.     set tempGauge to the number of cast "left plus lit"
  6.     set the castNum of sprite 2 to tempGauge
  7.     set the castNum of sprite 3 to the number of cast "middle"
  8.     set the castNum of sprite 4 to the number of cast "right"
  9.   else
  10.     if RcurrentWeight < LcurrentWeight then
  11.       set tempWt to the number of cast "left heavier"
  12.       set tempGauge to the number of cast "right plus lit"
  13.       set the castNum of sprite 2 to the number of cast "left"
  14.       set the castNum of sprite 3 to the number of cast "middle"
  15.       set the castNum of sprite 4 to tempGauge
  16.     else
  17.       if RcurrentWeight = LcurrentWeight then
  18.         set tempWt to the number of cast "even"
  19.         set tempGauge to the number of cast "equal lit"
  20.         set the castNum of sprite 2 to the number of cast "left"
  21.         set the castNum of sprite 3 to tempGauge
  22.         set the castNum of sprite 4 to the number of cast "right"
  23.       end if
  24.     end if
  25.   end if
  26.   set the castNum of sprite 10 to tempWt
  27. end
  28.